Adapt Tramp tests

* test/lisp/net/tramp-tests.el (tramp-test29-start-file-process)
(tramp-test30-make-process): Adapt tests.

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index e22f1afc18b69f6ed69a5fe6b520fff381517b6d..2c95cf97ff4cfdc9d4978ca8ca9d0afe7af9c926 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5401,6 +5401,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
            (with-timeout (10 (tramp--test-timeout-handler))
              (while (< (- (point-max) (point-min)) (length "foo"))
                (while (accept-process-output proc 0 nil t))))
+            ;; Some `cat' implementations do not support the `cat -'
+            ;; call.  We skip then.
+            (skip-unless
+             (not
+              (string-match-p (rx "cat: -: input file is output file\n")
+                              (buffer-string))))
            (should (string-match-p "foo" (buffer-string))))
 
        ;; Cleanup.
@@ -5595,6 +5601,12 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'."
            (with-timeout (10 (tramp--test-timeout-handler))
              (while (< (- (point-max) (point-min)) (length "foo"))
                (while (accept-process-output proc 0 nil t))))
+            ;; Some `cat' implementations do not support the `cat -'
+            ;; call.  We skip then.
+            (skip-unless
+             (not
+              (string-match-p (rx "cat: -: input file is output file\n")
+                              (buffer-string))))
            (should (string-match-p "foo" (buffer-string))))
 
        ;; Cleanup.